with XPA.Sed;
with Ada.Text_IO;

procedure test_sed is
	--package Sed renames xpa.sed;

	sed: xpa.Sed.Sed_Type;
	script: xpa.Sed.Script_String := XPA.Sed.Script_String'(Source => "Hello", Index => 0);
	
begin
	XPA.Sed.Open (sed);
	XPA.Sed.Compile (sed, script);
	XPA.Sed.Execute(sed);
	XPA.Sed.Close (sed);
	
exception
	when others =>
		Ada.Text_IO.Put_Line ("exception");		
end test_sed;

